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Catalog No. 310003A 


IDENTIFICA TION: 

810A I/O Handler for H. S. Paper Tape, ASR-33, 
Card Reader, and Line Printer 

AUTHOR: 

J. P. Dixon, SEL 

ACCEPTED: 

1 3 June 1967 

PURPOSE: 

To allow communication with card reader, ASR-33 

H. S. Paper Tape and Line Printer 

COMPUTER 

CONFIGURATION: 

810A with ASR-33 

SUBROUTINES 

REQUIRED: 

None 

STORAGE: 

550 octal locations 

TIMING: 

N/A 

USE: 

To read/write to/from the indicated peripherals, the 
calling sequence is: 


LAA LOGICAL DEVICE NO. 

CALL H$WR 

DAC BUF 

DATA N 


where BUF is the address of the first location of the 
buffer. 

N is the number of characters in the buffer 


Logical Device No. Is: 

1. ASR-33 KEYBOARD 

2. HIGH SPEED PAPER TAPE READER/PUNCH 

3. CARD READER 

4. LINE PRINTER 

5. PAPER TAPE READER/PUNCH ON TELETYPE 
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If the logical device number is positive, data is read; 
while it is negative data is written. 

A line counter is kept for the output to the ASR-33 
Keyboard. The count is initially set to -60 and increment 
from this point. If the user wishes to change this count 
he may do so by a: STA $LINE. 

If the user wishes to use magnetic tape, disc or drum; 
see Catalog Nos. 330006A, 360003A or 360004A. 

METHOD: ASR-33 Keyboard - Logical Device 1 

Input: 

A full ASCII character is stored in users buffer, 1 
character per word in bits 8-15. This character is also 
printed on the ASR-33. A delete ( ! 377), line feed ('212) 
is ignored. An ^ (’336) will cause characters in that 
line to be ignored plus all characters following until a 
carriage return is typed. This allows user to have 
another attempt at typing a line which has an error in it. 
Input is always terminated on a carriage return even if 
the word count N has not been reached. 

Output: 

The first character of the buffer is checked to see if 
it is one of the following characters: 

1 Output 4 carriage returns and line feeds to 

simulate a skip to top of page. 

0 Output 2 carriage returns and line feeds, i. e. 
space between lines. 

H. S. Paper Tape Reader/Punch - Logical Device 2 
Input: 

The same routine as is used for Keyboard input is used 
here (TINP). It should be noted that a zero character 
is also ignored, i. e. paper tape is read until a 
non-zero character is obtained. 

Output (Routine POUT): 

No special checks are made, i. e. this can be used 
for binary output. The 8 bits being obtained from bits 
7-15 of the users buffer. 
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Card Reader - Logical Device 3 

Routine CINP handles card input: 

Cards are read in binary mode whether the card 
reader has a BCD mode or not. Thus, a 12 punch 
causes bit 4 to be set in the computer and while 
9 punch causes bit 15 to be set. The resulting 
card binary code is first translated to BCD and then 
to full ASCII. The ASCII character is stored in the 
users buffer. The approximately 2 milliseconds 
delay between columns is used to do the translation 
for the previous column. 

Line Printer - Logical Device No. 4 


Use subroutine PROT. 

The first character is checked to see if it is one of the 
following characters: 

+ Print line and exit 
1 Top of form and fill buffer 

Print rest of characters in buffer. 

0 Space 2 lines before printing next line. 

If none of the above control characters are present a feed 
line is issued before printing a line. Number of lines 
per page is determined by control tape on printer. 

Paper Tape Reader/Punch on Teletype Logical 
Device Number 5 


Input: 

This uses the same routine as Keyboard and High Speed 
paper tape input (TINP). 

Output: 

This uses the same routine as the High Speed Punch 
(POUT) and can also be used for binary output. 
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0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

dole 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0036 

0036 

0036 


00000 00000000 * 

00000"00000000"* JUNE 13 1967 .. 

00000 00000000 * 

00000 00000000 * PROGRAMMER JP DIXON 
00000 00000000 * 

00000 00000000 * CATALOG N0 310003A 
00000 00000000 * 

00000 00000000 * H$WR F 0R CARDS PAPER TAPE LINE PRINTER TELETYPE' 
00000 00000000 * 

00000 OOOOdOOO * CALLING SEQUENCE 
00000 00000000 * CALL HSWR 

00000 00000000 * '" DAC BA' ". 

00000 00000000 * DATA WC 

ooooo ooooooOo * 

00000 OOOOOOOO * WHERE BA IS BASE ADDRESS 


OOOOO OOdOOOOO * WC IS WORDCOUNT 

OOOOO OOOOOOOO * 

Ooooo OOOdOOOO * A REGISTER CONTAINS LOGICAL DEVICE NUMBER 
OOOOO OOOOOOOO * IF POSITIVE INPUT 

“OOOOO OOOOOOOO * "NEGATIVE OUTPUT '"""• 

OOOOO OOOOOOOO * 

OOOOO 0Odd0000 * logical deVICE numbers 

OOOOO OOOOOOOO * LOGICAL DEV. N0 INPUT 0UTPUT \ 

OOOOO dodooooo * 1 '.. " KEYBOARD .. KEYBOARD 

OOOOO OOOOOOOO * 2 PAPER TAPE H.S. PAPER. TAPE H.S. 

OOOOO OOOOOOOO *".3 “ CARD READER CARD READER ' ". 

OOOOO OOOOOOOO * 4 _S PARE _ _ _LINE P RINT ER_ 

OOOOO OOOOOOOO * 5 PAPER TAPE (TELETYPE) PAPER TAPE 0UT r (TELETYPE) 

OOOOO OOOOOOOO * 

OOOOO OOOOOOOO * 6 " . MAGNETIC TAPE ' . MAGNETIC TAPE 

OOOOO OOOOOOOO * 

OoOOO ooOododo* 

OOOOO OOOOOOOO ***********»**************«***************#**********#**#*-********»**#**00129400 
OOOOO OOOOOOOO * . 00129500 


OOOOO OOOOOOOO REL 

OOOOO 50000000 NAME HSWR,H$WR 

OOOOO OOOOOOOO 

OOO0O 02022027 

OOOOO 04420040 
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0037 

00000 

50000475 


NAME 

LINE.L 

0037 

00000 

00000000 




0037 

00000 

03004416 




0037 

00000 

01220040 




0038 

00000 

00000006 

MTU 

EQU 

6 

0039 

00000 

25400000 

HSWR 

DAC 

0 

0040 

00001 

03100550 


STA 

LDN 

0041 

00002 

00000005 


TAB 


0042 

00003 

01100513 

LALO 

LAA 

L025 

0043 

00004 

03100476 


STA 

FI 

0044 

00005 

03100471 


STA 

FC 

0045 

00006 

01300000 


LAA* 

HSWR 

0046 

00007 

03100472 


STA 

BA 

0047 

00010 

14100000 


IMS 

HSWR 

0048 

00011 

01300000 


LAA* 

HSWR 

0049 

00012 

00000002 


NEG 


0050 

00013 

03100473 


STA 

NC 

0051 

00014 

14100000 


IMS 

HSWR 

0052 

00015 

00000023 


SAN 


0053 

00016 

11300000 


BRU* 

HSWR 

0054 

00017 

01100543 


LAA 

CEUO 

0055 

00020 

05500142 


AMA 

UNIT.l 

0056 

00021 

03100024 


STA 

CEUL 

0057 

00022 

01500125 


LAA 

DATZ >1 

0058 

00023 

03100025 


STA 

DATL 

0059 

00024 

00000033 

CEUL 

N0P 


0060 

00025 

00000033 

DATL 

N0P 


0061 

00026 

01100513 


LAA 

L025 

0062 

00027 

03100477 


STA 

WD 

0063 

00030 

00000004 


TBA 


0064 

00031 

00000024 


SAP 


OO 65 

00032 

11100053 


BRU 

S 0 UT 

0066 

00033 

01100541 


LAA 

A IPO 

0067 

00034 

05500142 


AMA 

U N I T»1 

0068 

00035 

03100106 


STA 

A I PC 

0069 

00036 

00000004 


TBA 


0070 

00037 

02100540 


lba 

A0P1 

0071 

00040 

00000110 


RSA 

1 _ 

0072 

00041 

00000022 


SAZ 


0073 

00042 

11100050 


BRU 

NTU1 


O O 
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_ _ _ ___ OKA 

SAVE LOGICAL DEVICE NUMBER 
USE AS INDEX __ 


FIRST CHARACTER INDICATOR 


.CKA 

CKA 
. . CKA 

ADDRESS: 0F BLOCK 


CKA 

CKA 

NUMBER 0F OUTPUT WORDS: 


CKA 
_CKA 

NEGATIVE CHARACTER COUNT 


CKA 


___ _ ___CKA 

CKA 

____ CKA 

CEU 0,W 


= -2 _ _ 

NEG CHARS/W0RD 

TEST F 0 R Tn PUT/OUTPUT 

0UTP UT__ 

A IP 0,W 


A0P 1,W 

TEST F0R _ KE YBOARD I NPUT 
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0074 

00043 

00170501 


M0P 

1,W 

-.-. 



0075 

00044 

00106400 

CRTN 

DATA 

*106400 




0076 

00045 

00170501 


MOP 

1 , N 




0077 

00046 

00105000 

LNFD 

DATA 

'105000 




0078 

00047 

11100051 


BRU 

* + 2 




0079 

00050 

02100125 

NTU1 

lba 

DATZ 




0080 

00051 

04100111 


STB 

A0PC 




0081 

00052 

11100066 


BRU 

I NPT 

INPUT 



0082 

00053 

01100542 

S0UT 

laa 

A0PO 




0083 

00054 

05500142 


AMA 

UNIT.1 




0084 

00055 

03100115 


STA 

A0P0 




0085 

00056 

01300472 

WSM1. 

laa# 

BA 

GET ONE CHAR FOR OUTPUT' 



0086 

00057 

03100156 


STA 

C0NV 




0087 

00060 

02100550 


lba 

LDN 

LOGICAL: DEVICE N0. 



0088 

00061 

11500156 


BRU 

CONV*1 




0089 

00062 

01100156 

SPB0 

LAA 

CONV 

GET CHARACTER 



0090 

00063 

12100114 


SPB 

0UTP 




0091 

00064 

12100074 


SP8 

TEST 

TEST FOREWORD COUNT' ZERO 



0092 

00065 

11100056 


BRU 

WSW1 

NOT 



0093 

00066 

12100105 

I NPT 

SPB 

I NPC 

INPUT ONE CHARACTER 



"0094 

00067 

02100550 


LBA 

LDN 

LOGICAL: DEVICE NO. 



0095 

00070 

11500156 


BRU 

C0NV» 1: 

CONVERT 



0096 

00071 

03300472 

STAB 

STA* 

BA 

STORE CHARACTER 



0097 

00072 

12100074 


SPB 

TEST 

TEST FOR, WORD COUNT ZERO 



0098 

00073 

11100066 


BRU 

I NPT 




0099 

00074 

00000000 

TEST 

111 

*# 




0100 

00075 

14100473 


IMS 

NC 

NEG. CHARACTER COUNT 



0101 

00076 

11100103 


BRU 

N0TD 

NOT DONE 



0102 

00077 

01100476 


LAA 

FI. 




0103 

00100 

00000023 


SAN 


TEST FOR, MORE I/O 



0104 

00101 

11300476 


BRU* 

FI 

YES 



0105 

00102 

11300000 


BRU* 

HSWR 

RETURN 



0i06 

00103 

14100472 

NO TO 

"IMS . 

BA 

INCREMENT BASE ADDRESS: 



0107 

00104 

11300074 


BRU* 

TEST 

RETURN 



0108 

00105 

00000000 

I NPC 

111 

*# 

INPUT A CHARACTER 



0109 

00106 

00000033 

A I PC 

N0P 


AIP U NIT > W 



0110 

00i07 

03100156" 


STA 

CONV 

SAVE CHARACTER 



0111 

00110 

00001016 


LSL 

8 

PREPARE FOE OUTPUT 



0112 

00111 

00000033 

A 0 PC 

NOP 


OUTPUT IF KEYBOARD INPUT 



0113 

00112 

01100156 


LAA 

C0NV 

LAST CHARACTER INPUT 
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0114 

00113 

11300105 


8 RU» 

INPC 

0115 

00114 

00000000 

0UTP 

ill 

** 

0116 

00115 

00000033 

A0P0 

N0P 


0117 

00116 

11300114 


BRU* 

0UTP 

oils 

00117 

00000000 


HLT 


0119 

00120 

00002000 


DATA 

•2000 

0120 

00121 

00000200 


DATA 

•200 

0121 

00122 

00000000 


DATA 

0 

0122 

00123 

00004000 


DATA 

' 4000 

0123 

00124 

00002000 


DATA 

'2000 

0124 

00125 

00000033 

DATZ 

N0P 


0125 

00126 

00002000 


DATA 

'2000 

0126 

00127 

00001000 


DATA 

*1000 

0127 

00130 

00004000 


DATA 

'4000 

0128 

00131 

00000000 


DATA 

0 

0129 

00132 

00004000 


DATA 

•4000 

0130 

00133 

00000000 


HLT 


0131 

00134 

00047733 


DAI A 

•47733 

0132 

00135 

00000001 


DATA 

1 

0133 

00136 

00000005 


DATA 

5 

0134 

00137 

00000001 


DATA 

1 

0135 

00140 

00000002 


DATA 

2 

0136 

00141 

00000001 


DATA 

1 

0137 

00142 

25400000 

UNIT 

DAC 

0 

0138 

00143 

00000001 


DATA 

1 

0139 

00144 

00000002 


DATA 

2 

0140 

00145 

00000004 


DATA 

4 

0141 

00146 

00000001 


DATA 

1 

0142 

00147 

00000001 


DATA 

i 

0143 

00150 

00047733 


DATA 

•47733 

0144 

00151 

11100277 


BRU 

P0UT 

0145 

00152 

11100304 


BRU 

PR0T 

0146 

00153 

11100236 


BRU 

T0T2 

0147 

00154 

11100277 


BRU 

P0UT 

0148 

00155 

11100233 


BRU 

T0UT 

0149 

00156 

25400000 

C0NV 

DAC 

0 

0150 

00157 

11100164 


BRU 

TINP 

0151 

00160 

11100164 


BRU 

TINP 

0152 

00161 

11100340 


BRU 

CINP 

0153 

00162 

00000033 


N0P 
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0154 

00163 

11100164 


BRU 

TINP 

5 PAPER TAPE IN-TELETYPE 00140900 

0155 

00164 

02100225 

TINP 

LSA 

I ADI 


0156 

00165 

04100476 


STB 

FI 


0157 

00166 

00000022 


SAZ 



0158 

00167 

11100171 


BRU 

* + 2 


0159 

00170 

11100066 


BRU 

INPT 

IGNORE ZERO 

0160 

00171 

15100514 


CMA 

L067 


0161 

00172 

11100174 


BRU 

* + 2 


0162 

00173 

11100066 


BRU 

INPT 

IGNORE DELETE ! 

0163 

00174 

15100534 


CMA 

L053 


0164 

00175. 

11100177 


BRU 

# + 2 


0165 

00176 

11100066 


BRU 

INPT 

IGNORE LINE FEED 

0166 

00177 

15100535 


CMA 

L052 


0167 

00200 

11100202 


BRU 

* + 2 


0168 

00201 

11100217 


BRU 

TCRD 

TERMINATE CARD ON CRRG. RETURN, 

0169 

00202 

15100544 


CMA 

KDEL 


0170 

00203 

11100071 


BRU 

STAB 


0171 

00204 

11100206 


BRU 

* + 2 

DELETE LINE OF INPUT 

0172 

00205 

11100071 


BRU 

STAB 


0173 

00206 

12100105 


SPB 

INPC 

INPUT CHARACTER 

0174 

00207 

06100535 


SMA 

L052 


0175 

00210 

00000022 


SAZ 



0176 

00211 

11100206 


BRU 

*-3 


0177 

00212 

01100000 


laa 

HJWR 


0i 78 

00213 

05100513 


AMA 

L025 


0179 

00214 

03100000 


STA 

H$WR 


0180 

00215 

02100550 


"LB A 

LDN 


0181 

00216 

11100003 


BRU 

LALO 


0182 

00217 

01100515 

TCRD 

LAA 

L003 

, 

0183 

00220 

03300472 


STA* 

BA 


0184 

00221 

14100472 


IMS 

BA 


0185 

00222 

14100473 


IMS 

NC 


0186 

0187 

00223 

00224 

11100220 

11300000 


BRU 

BRU* 

TCRD+1 

HSWR 


0188 

00225 

35400226 

I ADI 

DAC 

* + l 


0189 

00226 

12100105 


SPB 

INPC 


0190 

00227 

15100535 


CMA 

L052 


0191 

00230 

11100226 


BRU 

*-2 


0192 

00231 

11300000 


BRU*' 

H$WR 


0193 

00232 

11100226 


BRU 

*-4 
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0194 

00233 

01100471 

T0UT 

LA A 

FC 

FIRST CHARACTER TEST 

- --- 

00146500' 

0195 

00234 

00000024 


SAP 




00146600 

0196 

00235 

11100241 


6 RU 

T0T1 

YES 


00146700 

0197 

00236 

01100156 

T0T2 

L AA 

C0NV 



00146800 

0198 

00237 

00001016 


LSL 

8 


CKA 


0199 

00240 

11100063 


8 RU 

SPB0+1 




0200 

00241 

01100156 

T0T1 

LAA 

C0NV 




0201 

00242 

15100516 


CMA 

L117 




0202 

00243 

11100245 


BRU 

* + 2 




0203 

00244 

11100253 


BRU 

NWPG 

1= NEW PAGE 



0204 

00245 

15100517 


CMA 

L074 




0205 

00246 

11100250 


BRU 

* + 2 




0206 

00247 

12100261 

TWLN 

SPB 

CRLF 

OUTPUT 2 L F > C / R 


00148500 

0207 

00250 

12100261 


SPB 

CRLF 

ALL) 0THERS=C/R,LF 


00147800 

0208 

00251 

11100236 


BRU 

T0T2 

CONVERT AND OUTPUT 


00147900 

0209 

002§2 

12100502 


SPB 

CL 

CRRG. RET./ LINE FEED 



0210 

00253 

14100475 

NWPG 

IMS 

LINE 

COUNT DOWN REMAINING LINES 


00148100 

0211 

00254 

11100252 


BRU 

* — 2 



00148200 

0212 

00255 

12100266 


SPB 

NPG 

OUTPUT 4 JF 


00148300 

0213 

00256 

11100064 


BRU 

SPB0+2 




0214 

00257 

00000000 



-C/R,LlNE FEED 

AND BOOKKEEPi LINE COUNT 


00149700 

0215 

00257 

121005 0 2 


SPB 

CL 

CRRG. RET./ LINE FEED 



02 i6 

00260 

11300261 


BRU* 

CRLF 



00149900 

0217 

00261 

11000000 

CRLF 

BRU 

** 



00150000 

0218 

00262 

14100475 


IMS 

LINE 



00150100 

0219 

00263 

11100257 


BRU 

*-4 



00150200 

0220 

“00264 

12100266 


SPB 

NPG 

NEW PAGE 


00150300 

0221 

00265 

11300261 


BRU* 

CRLF 



00150400 

0222 

00266 

11000000 

NPG 

BRU 

** 



00150500 

0223 

00267 

01100520 


LAA 

L077 



00150600 

0224 

00270 

03100475 


ST A 

LINE 



00150700 

0225 

00271 

01100521 


LAA 

L018 



00150800 

0226 

002 72 

03100500 


ST A 

PAGE 



00150900 

0227 

00273 

12100502 


SPB 

CL 

CRRG. RET./ LINE FEED 



0228 

00274 

14100500 


IMS 

PAGE 



00151100 

0229 

00275 

11100273 


BRU 

*-2 



00151200 

0230 

00276 

11300266 


BRU* 

NPG 



00151300 

0231 

00277 

02100536 

_P0UT 

lba 

L100 



00151400 

0232 

00300 

04100476 


STB 

FI 



00151500 

0233 

00301 

11100236 


BRU 

T0T2 



00151600 
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0234 

00302 

12100502 

P0T1 

SPB 

CL 

CRRG. RET./ LINE FEED 



0235 

00303 

11300000 


BRU* 

HSWR 


CK A 


0236 

00304 

01100471 

PR0T 

LAA 

FC 



00151900 

0237 

U0303 

00000023 


SAN 




00152000 

0238 

00306 

11100236 


BRU 

T0T2 




0239 

00307 

01100537 


LAA 

L101 



00152500 

0240 

00310 

03100476 


STA 

FI 



00152600 

0241 

00311 

03100471 


STA 

FC 



00152700 

0242 

00312 

01100156 


LAA 

C0NV 



00152800 

0243 

00313 

15100522 


CMA 

L102 




0244 

00314 

11100316 


BRU 

* + 2 



00153100 

0245 

00315 

11100335 


BRU 

PR01 



00153200 

0246 

00316 

15100516 


CMA 

Lll 7 




0247 

00317 

11100321 


BRU 

* + 2 



00153900 

0248 

00320 

11100332 


BRU 

Z00L 



00154000 

0249 

00321 

15100517 


CMA 

L011 




0250 

00322 

11100324 


BRU 

* + 2 



00153500 

0251 

00323 

11100327 


BRU 

TW0L 



_00153600 . 

0252 

00324 

00130105 

0NEl 

CEU 

5, W 




0253 

00325 

00002100 


DATA 

’2100 

FEED LINE, FILL BUFFER 



0254 

00326 

11100236 


BRU 

T0T2 

START FILLING BUFFER. 



0255 

00327 

00130105 

TW0L 

CEU 

5,W 


_ CKA. 


0256 

00330 

00002000 


DATA 

•2000 

FEED LINE 



0257 

00331 

11100324 


BRU 

0NEL 




0258 

00332 

00130105 

Z00L 

CEU 

5 » W . 


CK A 


0259 

00333 

00001100 


DATA 

•1100 

PAGE EJECT, FILL. BUFFER 1 



0260 

00334 

11100236 


BRU 

T0T2 




0261 

00335 

00130105 

PR01 

CEU 

5, W 


CKA 


0262 

00336 

00000400 


DATA 

•000400 


CKA 


0263 

00337 

11300000 


BRU* 

H$WR 


CKA 


0264 

00340 

01100407 

C l NP 

LAA 

FRZ9 

-9 



0265 

00341 

03100501 


STA 

FCNT 

SHIFT C0UNTER 



0266 

00342 

02100523 


LB A 

DZR0 

0 



0267 

00343 

01100156 


LAA 

CONV 

UNITARY C0DED CHAR 



0268 

00344 

15100410 


CMA 

06TH 

TEST F0R QUESTION MARK. 



0269 

00345 

11100347 


BRU 

* + 2 

N0 



0270 

00346 

11100404 


BRU 

STB 

YES 



0271 

0034 7 

15100533 


CMA 

L004 

TEST F0R ZERO 



0272 

00350 

11100352 


BRU 

* + 2 

NO 



0273 

00351 

11100403 


BRU 

AMBl 

YES 
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0274 

00352 

15100512 


CM A 

EXCL 

0275 

00353 

11100355 


BRU 

* + 2 

0276 

00354 

11100402 


BRU 

AMB4 

0277 

00355 

00000022 


SAZ 


0278 

00356 

11100361 


BRU 

# + 3 

0279 

00357 

02100524 


lba 

L035 

0280 

00360 

11100404 


BRU 

STB 

0281 

00361 

00000416 


LSL 

4 

0282 

00362 

00000024 


SAP 


0283 

00363 

16100411 


AMB 

0STY 

0284 

00364 

00000116 


LSL 

1 

0285 

00365 

00000024 


SAP 


0286 

00366 

16100525 


AMB 

D022 

0287 

00367 

00000116 


LSL 

1: 

0288 

00370 

00000024 


SAP 


0289 

00371 

16100524 


AMB 

_.LQ35 

0290 

00372 

00000116 

LSL 

LSL 

1 

0291 

00373 

00000023 


SAN 


0292 

00374 

11100377 


BRU 

IMS 

0293 

00375 

16100526 


AMB 

DOO j 

0294 

00376 

16100501 


AMB 

FCNT 

0295 

00377 

14100501 

IMS 

IMS 

FCNT 

0296 

00400 

11100372 


BRU 

LSL 

0297 

00401 

11100404 


BRU 

STB 

0298 

00402 

16100525 

A MB 4 

AMB 

D022 

0299 

00403 

16100526 

AMB1: 

AMB 

D003 

0300 

00404 

12100452 

STB 

SPB 

BCDA 

0301 

00405 

00000004 


TBA 


0302 

00406 

11100071 


BRU 

STAB 

0303 

00407 

00177767 

FRZ9 

DATA 

-9 

0304 

00410 

00006000 

06TH 

DATA 

' 6000 

0305 

00411. 

00000060 

0STY 

DATA 

48 

0306 

00412 

00137661 

TABL 

DATA 

'137661 

0307 

00413 

00131263 


DATA 

♦ '23456; 

0307 

00414 

00132265 




0307 

00415 

00133267 




0307 

00416 

00134271 




0307 

00417 

00130275 




0307 

00420 

00123672 




0307 

00421 

00137300 
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N0 _ _ 

YES 

IES!_F0R SPACE 
N0 
* 20 


TEST F0R 12 PUNCH 

♦ 60 _'. . 

TEST F0R 11 PUNCH 
MO 

7e¥t~F0r, o punch” 


TEST F0„R NEXT RJW PUNCH 
N0 

ADJUST T0TAL: F0R PUNCH 


N0 
YES 
MO 
* 12 


>P / STU VWX YZ ( #3 " r JKL " 
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5 +ABCDEFGHI+. )%<«■■» * 


DI VIDE C0D E BY _TW0 

GET TW0 C0DES 
BCD C0DE 0DD? 

YES 

N0 


00162500 

00162700 
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o 

o 

0325 

00472 

25400000 

BA 

0 AC 

0 



00162800 

0326 

00473 

25400000 

NO . 

0 AC 

0 



00162900 

0327 

00474 

25400000 

WORD 

DAC 

0 



00163000 

0328 

00475 

00177720 

LINE 

DATA 

- * 60 



O016310J 

0329 

00476 

25400000 

SON 

DAC 

0 

0 

cka 


0330 

00477 

25400000 

SUN 

DAC 

0 

0 

CK A 


0331 

00500 

25400000 

TUN 

DAC 

0 

0 

CKA 


0332 

00501 

O0000476 

FI 

EQU 

SCN 


CKA 


0333 

00501 

00000477 

WD 

E QU 

SUN 


CKA 


0334 

00501 

00000500 

PARE 

EQU 

TUN 


CKA 


0335 

00501 

00000000 

* 





00173400 

0336 

00501 

00000000 

■fc 





00173500 

0337 

00501 

00000000 

FONT 

HLT 





0338 

00502 

00000000 

#- 


-THIS SUBROUTINE OUTPUTS C/R,LF 0N SUN. 


00148600 

0339 

00502 

11000000 

CL 

8RU 




00148900 

0340 

00503 

01100044 


laa 

CRTN 




0341 

00504 

12100114 


SPB 

0UTP 




0342 

00505 

01100046 


LAA 

LNFD 




0343 

00506 

12100114 


SPB 

0UTP 




0344 

00507 

00000003 


CLA 




00149400 

0345 

00510 

03100471 


STA 

FC 




0346 

00511 

11300502 


6RU* 

CL 



00149600 

0347 

00512 

00000000 

# 





00279300 

0348 

00512 

00003000 

EXCL 

DATA 

• 3000 




0349 

00513 

00177776 

L025 

DATA 

-2 




0350 

00514 

00000377 

L067 

DATA 

*377 




0351 

00515 

00000240 

L003 

DATA 

*240 

SPACE 



0352 

00516 

00000261 

L117 

DATA 

•261 




0353 

00517 

00000260 

L074 

DATA 

• 260 




0354 

00520 

00177720 

L077 

DATA 

*-60 




0355 

00521 

00177774 

L018 

DATA 

-4 




0356 

00522 

00000253 

L102 

DATA 

*253 




0357 

00523 

00000517 

Loii 

EQU 

L074 




0358 

00523 

00000000 

DZR0 

DATA 

0 




0359 

00524 

00000020 

LQ35 

DATA 

16 




0360 

00525 

00000040 

0022 

DATA 

• 40 




0361 

0052b 

00000012 

D003 

DATA 

’ 12 




0362 

00527 

00000247 

0018 

DATA 

*247 




0363 

00530 

00177777 

L013 

DATA 

•177777 




0364 

00531 

00177773 

L050 

DATA 

-5 
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0365 

00532 

00177660 

L001 

DATA 

-80 

- 



0366 

00533 

00001000 

L004 

DATA 

• 001000 

ASR 33 TYPE C0DE 


00001800 

0367 

00534 

00000212 

L053 

DATA 

*212 



00006700 

0368 

00535 

00000215 

L052 

DATA 

•215 



00006600 

0369 

00536 

35400302 

L100 

DAC 

P0T1 



00009000 

0370 

00537 

35400335 

L101 

DAC 

PR01 



00009100 

0371 

00540 

00170101 

A0P1 

A0P 

1, W 




0372 

00541 

00170300 

A I PO 

A IP 

0, W 




0373 

00542 

00170100 

A 0PO 

A0P 

o> w 




0374 

00543 

00130100 

CEUO 

CEU 

o,w 




0375 

00544 

00000336 

KDEL 

DATA 

•336 

DELETE A. LINE C0DE IS THE ’’UP ARR0R' ' 



0376 

00545 

00177622 

F110 

DATA 

-110 


FEC 


0377 

00546 

25401060 

FWA 

DAC 

•1060 


FEC 


0378 

00547 

25401061 

BL 

DAC 

•1061 


FEC 


0379 

00550 

25400000 

LDN 

DAC 

0 



00162600 

0380 

00551 

70400000 


END 
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AI PC 

0109 

0068 




A i P 0 

0372 

0066 




AMBl. 

0299 

0273 




AM84 

0298 

0276 




AiaPC 

0112 

0080 




A0P0 

0116 

0084 




A0PO 

0373 

0082 




A0P1 

0371 

0070 




BA 

0325 

0046 

0085 

0096 

0106 

BCUA 

0309 

0300 

0321 



BL. 

0378 





ceul 

0059 

0056 




cfcuo 

0374 

0054 




CINP 

0264 

0152 




CL, ■ 

0339 

0209 

0215 

0227 

0234 

CkjNV 

0149 

0086 

0088 

0089 

0095 

CRLF. 

0217 

0206 

0207 

0216 

0221 

CR.TN 

0075 

0340 




DATL 

0060 

0058 




DATz 

0124 

0057 

0079 



DZR0 

0358 

0266 




D003 

0361. 

0293 

0299 



D018 

0362 





D022 

0360 

0286 

0298 



EXCL. 

0348 

0274 




FCNT 

0337 

0265. 

0294 

0295 


FC 

0324 

0044 

0194 

0236 

0241 

FRZ9 

0303 

0264 




FSAV 

0322 

0310 

0320 



FRA 

0377 





FI. 

0332 

0043 

0102 

0104 

0156 

F110 

037b 





HSHR 

0039 

0045 

0047 

0048 

0051 

I ADI 

0188 

0155 




IMS 

0295 

0292 




INPC 

0108 

0093 

0114 

0173 

0189 

INPT 

0093 

0081 

0098 

0159 

0162 

KDEL 

0375 

0169 
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0183 0184 


0346 

0110 0113. 0197 0200 0242 0267 




0345 


0232 0240 

0053. 0105 0177 0179 0187 0192 0235 026 


0165 
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LALO 0042 
LDN 0379 
LINE 0328 
LNFD 0077 
LSL 0290 
1001 0365 
L003 0351; 
L004 0366 
L011 0357 
L013 0363 
L018 0355. 
L025: 0349 
L035 0359 
L050 0364 
L052 0368 
L053 0367 
L067. 0350 
L074 0353 
L077 0354 
L100 0369 
LiOl 0370 
L102 0356 
Lil7 0352 
MTU' 0038 
NC 0326 
N0TD 0106 
NPG 0222 
NTU1 0079 
NRPG 0210 
0NEL 0252 
0STY 0305 
0OTP 0115. 
06TH 0304 
PAGE 0334 
P0T1. 0234 
P0UT 0231 
PR0T 0236 
PR0i 0261 
SCN 0329 
SIX 0323 
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0181 

0040 

0210 

0342 

0296 

0182 

0271 

0249 

0225. 

0042 

0279 

0166 

0163 

0160 

0204 

0223 

0231 

0239 

0243 

0201 

0050 

0101 : 

0212 

0073 

0203 

0257 

0283 

0090 

0268 

0226 

0369 

01.44- 

01.45 

0245 

0332 


0037 0094 

0218 0224 


0061 0178 

0289 

0174 0190 

0357 

0246 

0100 0185 

0220 0230 

0117 0341 

0228 
01.47 
0370 
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0180 


0343 




SfcJUT 

SPB0 

STAB 

STB 

SUN 

TABL 

TCRD 

TEST 

TINP. 

T0T1 

T0T2 

TOUT 

TUN 

TWLN 

TW0L 

UNIT 

WU 

WORD 

WSHl: 

Z00L 


0082 

0089 

0096 

0600 

0630 

0306 

0182 

0099 

0156 

0200 

0197 

0194 

0331 

0206 

0255 

0137 

0333 

0627 

0085 

0258 


0065 

0199 

0170 

0270 

0333 

0314 

0168 

0091 

0150 

0196 

0146 

0148 

0334 

0251. 

0055 

0062 

0092 

0248 


0213 

0172 

0280 


0186 

0097 

0151 

0208 


0067 


0302 

0297 

0107 

0154 

0233 

0083 
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0236 


0254 


0260 



